home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
kboot20.d64
/
func.get'protect
< prev
next >
Wrap
Text File
|
2009-01-23
|
459b
|
18 lines
1120 ╞╒╬├ WRITE'PROTECT(DRIVE$) ├╠╧╙┼─
1130 // THIS FUNCTION TESTS WHETHER
1140 // OR NOT THE DISK IN THE DRIVE
1150 // CAN BE WRITTEN TO. A GARBAGE
1160 // FILE NAME IS USED.
1170 //
1180 FILENAME$:=DRIVE$+"ACEGIKMOQ246"
1190 ╘╥┴╨
1200 ╧╨┼╬ ╞╔╠┼ 79,FILENAME$,╫╥╔╘┼
1210 ├╠╧╙┼ ╞╔╠┼ 79
1220 ─┼╠┼╘┼ FILENAME$
1230 ╥┼╘╒╥╬ ╞┴╠╙┼
1240 ╚┴╬─╠┼╥
1250 ├╠╧╙┼ ╞╔╠┼ 79
1260 ╥┼╘╒╥╬ ╘╥╒┼
1270 ┼╬─╘╥┴╨
1280 ┼╬─╞╒╬├ WRITE'PROTECT